home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / tcl / src / tclMacUtil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-28  |  967 b   |  56 lines  |  [TEXT/MPS ]
  1.  
  2. #ifdef MPW
  3. #    pragma segment TCL_MACUTIL
  4. #endif
  5.  
  6.  
  7. #include "tclInt.h"
  8. #include "errMac.h"
  9.  
  10. int        macintoshErr = 0;
  11.  
  12. char *
  13. Tcl_MacErrorID(errno)
  14. int        errno;
  15. {
  16. static char    macMsg[64];
  17.  
  18.     sprintf(macMsg, "Error #%d", errno);
  19.     return macMsg;
  20.     }
  21.  
  22. char *
  23. Tcl_MacError (interp)
  24. Tcl_Interp *interp;
  25. {
  26. int        idx;
  27. char    *id, *msg;
  28.  
  29.     id = Tcl_MacErrorID(macintoshErr);
  30.     for (    idx = 0 ;    (ErrorCodeTab [idx].errNum  != macintoshErr) && 
  31.                         (ErrorCodeTab [idx].errNum  != -1);
  32.              idx++  )
  33.         ;
  34.     msg = ErrorCodeTab[idx].errCode;
  35.     Tcl_SetErrorCode(interp, "MAC", id, msg, (char *) NULL);
  36.     return msg;
  37. }
  38.  
  39. char *
  40. Tcl_MacGetError (interp, error)
  41.     Tcl_Interp    *interp;
  42.     int            error;
  43.     {
  44.     int        idx;
  45.     char    *id, *msg;
  46.  
  47.     id = Tcl_MacErrorID(error);
  48.     for (    idx = 0 ;    (ErrorCodeTab [idx].errNum  != error) && 
  49.                         (ErrorCodeTab [idx].errNum  != -1);
  50.              idx++  )
  51.         ;
  52.     msg = ErrorCodeTab[idx].errCode;
  53.     Tcl_SetErrorCode(interp, "MAC", id, msg, (char *) NULL);
  54.     return msg;
  55.     }
  56.